home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / musicali / aplay22.lha / APlayer / Files / ARexx.lha / ScanSongs.aplay < prev    next >
Text File  |  1995-02-12  |  3KB  |  86 lines
  1. /* Skip & delete module. Useful when selecting modules to copy from a */
  2. /* friend. */
  3.  
  4. ADDRESS APlayer
  5. OPTIONS RESULTS
  6. SIGNAL ON HALT
  7.  
  8. GetMaxNames                
  9. numberofmodules=RESULT
  10. counter=1
  11.  
  12. nl='0A'X
  13.  
  14. msg=      "This Rexx-script will make an APML (module list) containing"|| nl
  15. msg=msg ||"all the names and paths of the modules that you choose to keep,"  || nl
  16. msg=msg ||"To see instructions, please press huh?." 
  17.  
  18. Request "Okay!|Huh?" msg 
  19.  
  20. IF RESULT=0 THEN DO
  21.  
  22. msg2=        "1) Press EJECT twice to empty the player for old modules." || nl
  23. msg2=msg2 ||""|| nl
  24. msg2=msg2 ||"2) Press PLAY and select all files with the ALL button in the requester." || nl
  25. msg2=msg2 ||""|| nl
  26. msg2=msg2 ||"3) If you want to include modules in other directories as well, then" || nl
  27. msg2=msg2 ||"     click on one of these directories and push the ALL button."|| nl
  28. msg2=msg2 ||""|| nl
  29. msg2=msg2 ||"4) DO NOT sort the list in any way! It will ruin your selection."|| nl
  30. msg2=msg2 ||""|| nl
  31. msg2=msg2 ||"5) When finished with this script, save the modulelist (this is done"|| nl
  32. msg2=msg2 ||"     in the Module List Editor. You can then view or print the file you"|| nl
  33. msg2=msg2 ||"     saved and from this file it should be easy for you to select the" || nl 
  34. msg2=msg2 ||"     modules you want."|| nl
  35.     Request "Aha!" msg2
  36. END
  37.  
  38. IF numberofmodules= 0 THEN DO
  39.         Request "Okay" "You haven't got any songs in the list."
  40.         EXIT
  41. END
  42.  
  43. LoopOn
  44. Playmod 1
  45. /* This following loop will play all modules in the list */
  46.  
  47. DO     UNTIL counter=numberofmodules+1
  48.     GetName
  49.     modname=RESULT
  50.     msg="Do you want to store" || nl || modname || nl || "in your list?"
  51.     
  52.     Request "Keep!|>>|Ignore" msg
  53.     IF RESULT=0 THEN DO
  54.         DelMod counter
  55.         PlayMod counter
  56.         numberofmodules=numberofmodules-1
  57.     END
  58.     ELSE
  59.         IF RESULT=1 THEN DO
  60.             counter=counter+1
  61.                         PlayMod counter
  62.         END
  63.         ELSE DO
  64.             Forward
  65.                 END
  66. END
  67. LoopOff
  68.  
  69. msg3=       "Okay we are now finished selecting modules. Hopefully you haven't sorted" || nl
  70. msg3=msg3 ||"the modulelist before you started (otherwise it will be a hell for you " || nl
  71. msg3=msg3 ||"selecting the modules). Now save the modulelist. Then view it with a text" || nl
  72. msg3=msg3 ||"viewer or print it out, and use your favourite Dir-util to copy the files."
  73. Request "Ok" msg3
  74.  
  75. EXIT
  76.  
  77. /* 
  78.    This is the 'emergencybrake' part of this script. If you can't stop this
  79.    sucker run the program HI which is located in the RXC drawer on your
  80.    sys: partition.
  81. */
  82.  
  83. HALT:
  84. Say 'The ScanSongs.aplay script has been stopped. Hope you liked it.'
  85. EXIT
  86.